10 CLR
50 DIM CT(30),X(30)
100 POKE53280,0:POKE53281,0
120 PRINT"[147]
140 [153]"     TEST DE VELOCIDAD CON EL TECLADO
160 PRINT"[158]  ESTE PROGRAMA SIRVE PARA MEDIR TU CO-
180 [153]"   NOCIMIENTO DEL TECLADO Y VELOCIDAD
200 PRINT"              DE REACCION.
220 [153]"LIST           PULSA UNA TECLA
230 GETA$:IFA$=""THEN230
240 PRINT"[147][158]  A LA IZQUIERDA DE LA PANTALLA APARE-
260 [153]"  CERAN LAS LETRAS DEL ALFABETO, PERO
280 PRINT"         EL ORDEN ES ALEATORIO.
300 [153]"  CUANDO APAREZCA UNA LETRA NUEVA A LA
320 PRINT"  IZQUIERDA, DEBES PULSAR LA TECLA CO-
340 [153]"   RRESPONDIENTE LO ANTES POSIBLE.
350 PRINT"[155]           PULSA UNA TECLA
380 [161]A$:[139]A$[178]""[167]380
400 [153]"LOAD          SELECCIONA EL NIVEL
410 INPUT"[158]     0,RAPIDO  A  255,LENTO  ";VV
430 PRINT"              PREPARADO
440 [129]T[178]0[164]1500:[130]
450 [153]"LIST           PULSA UNA TECLA
480 GETA$:IFA$=""THEN480
500 REM * * * * * * * * * * * * * * * *
550 PRINT"[147]"
600 FORT=1TO26
650 S=INT(26*RND(0)+1)
670 IFX(S)=1THEN650
700 X(S)=1
750 POKE198,0
780 PRINT""
800 PRINTCHR$(64+S);
830 POKE646,INT(RND(0)*15+1)
850 GETG$:IFG$=""THENG$="0"
860 FORR=0TOVV:NEXT
870 CT(S)=CT(S)+1
900 IFASC(G$)-64=STHEN990
920 PRINTCHR$(64+S);
950 IFCT(S)<35 THEN 850
990 NEXT
1000 PRINT"[147]
1040 [153]"               RESULTADOS
1060 PRINT""
1100 FORT=1TO26
1120 PRINT "[154]      ";CHR$(T+64),"=";CT(T),
1140 M=M+CT(T)
1150 NEXT
1200 PRINT"               [153]MEDIA=";M/26
1210 FORT=0TO2500:NEXT
1220 POKE198,0
1250 PRINT"[155]           PULSA UNA TECLA
1270 [161]G$:[139]G$[178]""[167]1270
1300 [153]"LOAD
1340 PRINT"             OTRA VEZ (S/N)"
1400 GETG$:IFG$=""THEN1400
1450 IFG$="S"THEN10